home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / ex4.gui < prev    next >
Encoding:
Text File  |  1998-04-23  |  1.0 KB  |  34 lines
  1. #
  2. # Example 3: Tinkering with colors
  3. #
  4.        MakeMenu ( file, "File" )
  5.           MakeMenuItem(   open, file, "Open",     Load, "open")
  6.           MakeMenuItem(sdfopen, file, "SDF Open", Load, "sdfopen")
  7.  
  8.         MakeButton( var,     " Var ",     VarSel,  NULL )
  9.         MakeButton( display, " Display ", Display, "display" )
  10.         MakeButton( quit,    " Quit ",    Cmd,     "quit" )
  11.  
  12.         SetWidgetPos(var,     NO_CARE, NULL, PLACE_RIGHT, file)
  13.         SetWidgetPos(display, NO_CARE, NULL, PLACE_RIGHT, var)
  14.         SetWidgetPos(quit,    NO_CARE, NULL, PLACE_RIGHT, display)
  15.  
  16.         ShowDisplay()
  17.  
  18.         GetNamedColor(gray,"grey")
  19.         GetNamedColor(sblue,"LightSkyBlue")
  20.  
  21.         SetBgColor(file,sblue)
  22.         SetBgColor(var,gray)
  23.         SetBgColor(display,gray)
  24.         SetBgColor(quit,red)
  25.         SetFgColor(var,yellow)
  26.         SetFgColor(display,yellow)
  27.         SetFgColor(quit,yellow)
  28.  
  29.         GetFont(font,"-*-helvetica-bold-o-normal--14-*-*-*-*-*-*-*" )
  30.         AllWidgetFont(font)
  31.  
  32.         MainLoop()
  33.  
  34.